
//-------------------------------
// FIGURE A5
//-------------------------------

clear
use masterdata_policing.dta

gen vcrime_tot = murders + agg_assault + forc_rape + robbery
gen vcrime_clear = murders_clear + agg_assault_clear + forc_rape_clear + robbery_clear
gen vcrimeclearrate = vcrime_clear/vcrime_tot
gen pcrime_tot = burglary + larcenytheft + mvt
gen pcrime_clear = burglary_clear + larceny_clear + mvt_clear
gen pcrimeclearrate = pcrime_clear/pcrime_tot

preserve
    gen lncommute = ln(commutemin +1)
	gr tw lpolyci pctfinesandforfeits commutemin if year == 2012, name(g1, replace) graphregion(color(white))
	gr tw lpolyci pctfinesandforfeits lncommute if year == 2012, name(g2, replace) graphregion(color(white))
	gr combine g1 g2, graphregion(color(white))
restore

